home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / squirrelmail_detect.nasl < prev    next >
Encoding:
Text File  |  2005-03-31  |  4.9 KB  |  152 lines
  1. #
  2. # This script was written by George A. Theall, <theall@tifaware.com>.
  3. #
  4. # See the Nessus Scripts License for details.
  5. #
  6.  
  7.  
  8. # NB: I define the script description here so I can later modify
  9. #     it with the version number and install directory.
  10.   desc["english"] = "
  11. This script detects whether the remote host is running SquirrelMail and
  12. extracts version numbers and locations of any instances found. 
  13.  
  14. SquirrelMail is a PHP-based webmail package that provides access to mail
  15. accounts via POP3 or IMAP. See http://www.squirrelmail.org/ for more
  16. information. 
  17.  
  18. Risk factor : None";
  19.  
  20.  
  21. if (description) {
  22.   script_id(12647);
  23.   script_version("$Revision: 1.4 $");
  24.  
  25.   name["english"] = "SquirrelMail Detection";
  26.   script_name(english:name["english"]);
  27.  
  28.   script_description(english:desc["english"]);
  29.  
  30.   summary["english"] = "Checks for the presence of SquirrelMail";
  31.   script_summary(english:summary["english"]);
  32.  
  33.   script_category(ACT_GATHER_INFO);
  34.   script_copyright(english:"This script is Copyright (C) 2004 George A. Theall");
  35.  
  36.   family["english"] = "General";
  37.   script_family(english:family["english"]);
  38.  
  39.   script_dependencie("global_settings.nasl", "http_version.nasl", "no404.nasl");
  40.   script_require_ports("Services/www", 80);
  41.  
  42.   exit(0);
  43. }
  44.  
  45. include("global_settings.inc");
  46. include("http_func.inc");
  47. include("http_keepalive.inc");
  48.  
  49. host = get_host_name();
  50. port = get_http_port(default:80);
  51. if (debug_level) display("debug: looking for SquirrelMail on ", host, ":", port, ".\n");
  52.  
  53. if (!get_port_state(port)) exit(0);
  54. if (!can_host_php(port:port)) exit(0);
  55. if (get_kb_item("www/no404/" + port)) exit(0);
  56.  
  57. # Search for SquirrelMail in a couple of different locations.
  58. #
  59. # NB: Directories beyond cgi_dirs() come from a Google search - 
  60. #     'intitle:login squirrelmail' - and represent the more popular
  61. #     installation paths currently. Still, cgi_dirs() should catch
  62. #     the directory if its referenced elsewhere on the target.
  63. dirs = make_list("", "/squirrelmail", "/webmail", "/mail", "/sm", cgi_dirs());
  64. foreach dir (dirs) {
  65.   # Search in a couple of different pages.
  66.   files = make_list(
  67.     "/src/login.php", "/src/compose.php", "/ChangeLog", "/ReleaseNotes"
  68.   );
  69.   foreach file (files) {
  70.     if (debug_level) display("debug: checking ", dir, file, "...\n");
  71.  
  72.     # Get the page.
  73.     req = http_get(item:string(dir, file), port:port);
  74.     res = http_keepalive_send_recv(port:port, data:req);
  75.     if (res == NULL) exit(0);           # can't connect
  76.     if (debug_level) display("debug: res =>>", res, "<<\n");
  77.  
  78.     if (egrep(string:res, pattern:"^HTTP/.* 200 OK")) {
  79.       # Specify pattern used to identify version string.
  80.       if (file == "/src/login.php" || file == "/src/compose.php") {
  81.         pat = "<SMALL>SquirrelMail version (.+)<BR";
  82.       }
  83.       else if (file == "/ChangeLog") {
  84.         pat = "^Version (.+) - [0-9]";
  85.       }
  86.       # nb: this first appeared in 1.2.0 and isn't always accurate.
  87.       else if (file == "/ReleaseNotes") {
  88.         pat = "Release Notes: SquirrelMail (.+) *\*";
  89.       }
  90.       # - someone updated files but forgot to add a pattern???
  91.       else {
  92.         if (debug_level) display("Don't know how to handle file '", file, "'!\n");
  93.         exit(1);
  94.       }
  95.  
  96.       # Get the version string.
  97.       if (debug_level) display("debug: grepping results for =>>", pat, "<<\n");
  98.       matches = egrep(pattern:pat, string:res, icase:TRUE);
  99.       foreach match (split(matches)) {
  100.         match = chomp(match);
  101.         if (debug_level) display("debug: grepping >>", match, "<< for =>>", pat, "<<\n");
  102.         ver = eregmatch(pattern:pat, string:match, icase:TRUE);
  103.         if (ver == NULL) break;
  104.         ver = ver[1];
  105.         if (debug_level) display("debug: SquirrelMail version =>>", ver, "<<\n");
  106.  
  107.         # Success!
  108.         set_kb_item(
  109.           name:string("www/", port, "/squirrelmail"),
  110.           value:string(ver, " under ", dir)
  111.         );
  112.         installations[dir] = ver;
  113.         ++installs;
  114.  
  115.         # nb: only worried about the first match.
  116.         break;
  117.       }
  118.       # nb: if we found an installation, stop iterating through files.
  119.       if (installs) break;
  120.     }
  121.   }
  122.   # Scan for multiple installations only if "Thorough Tests" is checked.
  123.   if (installs && !thorough_tests) break;
  124. }
  125.  
  126. # Report any instances found unless Report verbosity is "Quiet".
  127. if (installs && report_verbosity > 0) {
  128.   if (installs == 1) {
  129.     foreach dir (keys(installations)) {
  130.       # empty - just need to set 'dir'.
  131.     }
  132.     info = string("SquirrelMail ", ver, " was detected on the remote host under the path ", dir, ".");
  133.   }
  134.   else {
  135.     info = string(
  136.       "Multiple instances of SquirrelMail were detected on the remote host:\n",
  137.       "\n"
  138.     );
  139.     foreach dir (keys(installations)) {
  140.       info = info + string("    ", installations[dir], ", installed under ", dir, "\n");
  141.     }
  142.     info = chomp(info);
  143.   }
  144.  
  145.   desc = ereg_replace(
  146.     string:desc["english"],
  147.     pattern:"This script[^\.]+\.", 
  148.     replace:info
  149.   );
  150.   security_note(port:port, data:desc);
  151. }
  152.